home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD017a.dsk / MY NAME IS APPLE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  42 lines
  1. 10  REM  ***********************
  2. 15  REM  **   A PROGRAM FROM  **
  3. 25  REM  ** CREATIVE COMPUTING**
  4. 27  REM  **      MAGAZINE     **
  5. 31  REM  ** VOICE AND PROGRAM **
  6. 35  REM  **    ADAPTED BY     **
  7. 45  REM  **  J.C. GOBINS JR.  **
  8. 55  REM  **   JANUARY 1983    **
  9. 65  REM  ***********************
  10. 80  ONERR  GOTO 445
  11. 90  FOR M = 768 TO 899: READ D: POKE M,D: NEXT M
  12. 100  DATA  141,16,192,160,0,132,255,173
  13. 110  DATA  96,192,41,128,197,255,240,5
  14. 120  DATA  174,48,192,133,255,173,0,192
  15. 130  DATA   16,237,32,51,3,177,253,37
  16. 140  DATA  8,174,96,192,16,2,5,250
  17. 150  DATA  145,253,32,76,3,32,70,3
  18. 160  DATA  76,29,3,160,0,162,1,134
  19. 170  DATA  250,162,254,134,8,166,6,134
  20. 180  DATA  253,166,7,134,254,96,166,251
  21. 190  DATA  202,208,253,96,200,208,23,230
  22. 200  DATA  254,165,254,197,252,208,15,165
  23. 210  DATA  250,10,176,11,133,250,73,255
  24. 220  DATA  133,8,166,7,134,254,96,104
  25. 230  DATA  104,96,32,51,3,177,253,37
  26. 240  DATA  250,197,255,240,3,174,48,192
  27. 250  DATA  133,255,32,76,3,32,70,3
  28. 260  DATA  234,76,109,3
  29. 405  PRINT  CHR$(4);"BLOAD MY NAME IS APPLE 5,A24576"
  30. 410  POKE 6,0: POKE 7,96: POKE 252,112
  31. 425  HOME : PRINT "J.C. GOBINS, JR.": PRINT "1326 E. VERDE LANE": PRINT "PHOENIX, ARIZONA  85014"
  32. 426  PRINT : PRINT "ADAPTED FROM CREATIVE COMPUTING": PRINT : PRINT "FOR SOFTDISK MAGAZETTE"
  33. 427 X = 5
  34. 430  POKE 251,X
  35. 435  CALL 874
  36. 440  VTAB 10: PRINT : HTAB 10: PRINT "1 = NEW YORK": PRINT : HTAB 10: PRINT "2 = DENVER": PRINT : HTAB 10: PRINT "3 = SHREVEPORT": PRINT : HTAB 10: PRINT "4 = BACK TO SOFTDISK"
  37. 450  VTAB 20: HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$
  38. 460  IF R$ = "1"  THEN X = 1: GOTO 430
  39. 470  IF R$ = "2"  THEN X = 5: GOTO 430
  40. 480  IF R$ = "3"  THEN X = 9: GOTO 430
  41. 490  IF R$ < >"4" GOTO 450
  42. 500  PRINT  CHR$(4)"RUN KICK.IT.OFF"